home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / grtmd65a.zip / GM6P5U.INF < prev    next >
INI File  |  1993-12-03  |  12KB  |  409 lines
  1. ;;  This is the installation script that is used to install
  2. ;;  Grateful Med Version 6.5 Update files.
  3. ;;
  4.  
  5. DefineVariables
  6. Text [CompanyName] := National Library of Medicine
  7. Text [ProductName] := Grateful Med Update: Version 6.5
  8.  
  9. Text [ExpressSetupDescription] := Install [ProductName]
  10. Directory [DefaultInstallationDirectory] := GM6
  11. Directory [ReadmeFileName] := README.6P5
  12. Text [WarnLine1] := You must have Grateful Med Version 6 on your
  13. Text [WarnLine2] := computer in order for this update to work.
  14. Text [WarnLine3] := Please make sure that you have specified the correct
  15. Text [WarnLine4] := location (drive: and directory) of GM Version 6.
  16.  
  17. Text [MainBorder] := NONE
  18. Text [PopupBorder] := SINGLE
  19. Text [TopLineColors] := WhiteOnLightBlue
  20. Text [BottomLineColors] := WhiteOnLightGray
  21. Text [PopupColors] := WhiteOnCyan
  22. Text [AttentionColors] := WhiteOnRed
  23. Text [SpecialPopupColors] := BlueonLightGray
  24. Text [BackgroundCharacter] := B0
  25. Text [ScreenColors] := WhiteOnLightBlue
  26.  
  27. Text [ModifyMode] := UNDECIDED
  28. Text [ExtractionOptions] := ShowJustOne  ;; See GetQuedFiles
  29.  
  30. Text [MinimumOSVersion] := 3.10
  31. Number [MinimumSystemMemoryRequiredPresent] := 0
  32. Logical [MathCoprocessorRecommended] := NoCharacter
  33.  
  34. Logical [Installed] := NoCharacter
  35. Text [DisplayAdapterSummary] :=
  36. Text [CPUTypeSummary] :=
  37. Text [NetworkActive] :=
  38. Text [MathCoprocessorStatus] :=
  39. Text [InstallationDriveSummary] :=
  40. Text [OSVersionSummary] :=
  41. Text [SystemMemorySummary] :=
  42. Logical [InsufficientSystem] := NoCharacter
  43. Logical [CompatibilityNoticeGiven] := NoCharacter
  44.  
  45. EndDefineVariables
  46.  
  47. SetReplacementInquiry Off
  48.  
  49. LetButton <F1> Do ShowHelpInfo
  50. LetButton <F3> Do ShowSystemSummary
  51. LetButton <F9> Do ExitInstallation
  52.  
  53. Do SetupINSTALIT
  54.  
  55.  
  56. Dialog [YesOrNo1] [ScreenColors]  ;; does user know location of existing GM6?
  57.      This installation program can only UPDATE an
  58.      existing copy of Grateful Med Version 6.
  59.  
  60.      You will be asked to specify the disk drive
  61.      and directory that contains your current copy
  62.      of Version 6.  Do you wish to continue?
  63. EndDialog
  64.  
  65.     If [YesOrNo1] = NoCharacter
  66.        Do ExitInstallation
  67.     EndIf
  68.  
  69. :GetWhereToInstall
  70. DetermineInstallationDrive 170000 RequireFixed
  71. [InstallationDirectory] := InstallationDrive:\[DefaultInstallationDirectory]
  72. DetermineInstallationDirectory NoCreate RequireFixed
  73. if .not. DirectoryExists [InstallationDirectory]
  74.     Dialog
  75.         Directory [InstallationDirectory] does not exist.
  76.  
  77.         [WarnLine1]
  78.         [WarnLine2]
  79.  
  80.         [WarnLine3]
  81.         [WarnLine4]
  82.     EndDialog
  83.     Goto GetWhereToInstall
  84. EndIf
  85.  
  86. If .not. FileExists [InstallationDirectory]\GMSI.EXE
  87.     Dialog
  88.         Grateful Med Version 6 is not in [InstallationDirectory].
  89.  
  90.         [WarnLine1]
  91.         [WarnLine2]
  92.  
  93.         [WarnLine3]
  94.         [WarnLine4]
  95.     EndDialog
  96.     GoTo GetWhereToInstall
  97. EndIf
  98.  
  99. If .not. FileExists [InstallationDirectory]\TREE.DCT
  100.     GoTo Menu2
  101. EndIf
  102.  
  103. :Menu1
  104. ClearScreen
  105.  
  106. GetMenuChoice @xy(Center,10) UseHeader "   Update Grateful Med in [InstallationDirectory]"
  107.   Proceed with Update
  108.   Select a different directory
  109.     ;Lets you update a copy of Grateful Med
  110.     ;that you may have in another directory.
  111.   Quit
  112.     ;Takes you back to DOS
  113. EndGetMenuChoice
  114.  
  115. ClearScreen
  116.  
  117. InCase choice is
  118.   =1:  QueAllFiles
  119.   =2:  GoTo GetWhereToInstall
  120.   =3:  Do ExitInstallation
  121. EndInCase
  122.  
  123. If QueSize = 0
  124.   GoTo Continue1
  125. EndIf
  126.  
  127. GetQuedFiles [ExtractionOptions]
  128.  
  129. If FileExists [InstallationDirectory]\[ReadmeFileName]
  130.    
  131.    Dialog [YesOrNo2] [ScreenColors]
  132.      Grateful Med has been updated to Version 6.5
  133.      in [InstallationDirectory]
  134.  
  135.      (If you need to return to the update menu,
  136.      e.g., to update another copy of Grateful Med,
  137.      press 'N' otherwise press 'Y'.)
  138.      
  139.      Are you done with the update?
  140.    EndDialog
  141.     
  142.    If [YesOrNo2] = YesCharacter
  143.       Do ExitInstallation
  144.    EndIf
  145.  
  146. EndIf
  147.  
  148. :Continue1
  149. GoTo Menu1
  150.  
  151. :Menu2
  152. ClearScreen
  153.  
  154. If .not. FileExists [InstallationDirectory]\TREE.DCT
  155.      TextBox @xy(1,4) UseHeader "MeSH More Specific Terms" [ScreenColors]
  156.      You do not have the MeSH More Specific Terms installed
  157.      at this time.  You can add this feature now if you wish.
  158.      It requires an additional 400K Bytes of disk space.
  159.      EndTextBox
  160. EndIf
  161.  
  162. GetMenuChoice @xy(Center,11) UseHeader "Update Grateful Med in [InstallationDirectory]"
  163.   
  164.   Update Grateful Med
  165.     ;Updates the current copy of Grateful Med
  166.     ;without the MeSH More Specific Terms feature.
  167.   Update Grateful Med (include MeSH More Specific Terms)
  168.     ;Updates the current copy of Grateful Med
  169.     ;and adds the MeSH More Specific Terms files.
  170.   Select a different directory
  171.     ;Lets you update a copy of Grateful Med
  172.     ;that you may have in another directory.
  173.   Quit
  174.     ;Takes you back to DOS
  175. EndGetMenuChoice
  176.  
  177. ClearScreen
  178.  
  179. InCase choice is
  180.   =1:  QueFileGroup 1
  181.   =2:  QueAllFiles
  182.   =3:  GoTo GetWhereToInstall
  183.   =4:  Do ExitInstallation
  184. EndInCase
  185.  
  186. If QueSize = 0
  187.   GoTo Continue2
  188. EndIf
  189.  
  190. GetQuedFiles [ExtractionOptions]
  191.  
  192. If FileExists [InstallationDirectory]\[ReadmeFileName]
  193.    
  194.    Dialog [YesOrNo4] [ScreenColors]
  195.      Grateful Med has been updated to Version 6.5
  196.      in [InstallationDirectory]
  197.  
  198.      (If you need to return to the update menu,
  199.      e.g., to update another copy of Grateful Med,
  200.      press 'N' otherwise press 'Y'.)
  201.      
  202.      Are you done with the update?
  203.    EndDialog
  204.     
  205.    If [YesOrNo4] = YesCharacter
  206.       Do ExitInstallation
  207.    EndIf
  208.  
  209. EndIf
  210.  
  211. :Continue2
  212. GoTo Menu2
  213.  
  214.  
  215. Procedure ShowHelpInfo
  216. Dialog PressAKey [SpecialPopupColors]  ;; How to reach technical support
  217.  
  218. This installation program will update, to Version 6.5, any
  219. existing copy of Grateful Med Version 6.  You must know
  220. the drive and directory that contains your current copy of
  221. Grateful Med in order to proceed with the update.
  222.  
  223. The updated Grateful Med, Version 6.5, will use an extra
  224. 100K to 200K of disk space, primarily because of an increase
  225. in the size of the MeSH files.
  226.  
  227. If you have additional questions about this Grateful Med
  228. update, please contact NLM's MEDLARS Service Desk:
  229.  
  230. Phone:  1-800-638-8480
  231.  
  232. GM-BBS: Select DIRECT from the Action screen and then 
  233. .l        select Grateful Med BBS.  Send a message to MMS.
  234.  
  235. e-mail: gmhelp@gmedserv.nlm.nih.gov
  236.  
  237. EndDialog
  238. EndProcedure
  239.  
  240. Procedure ShowSystemSummary  ;; System summary - change with care.
  241.   If [InstallationDirectory] <> BlankString
  242.     [InstallationDriveSummary] := InstallationDrive (FreeSpaceOnDrive InstallationDrive bytes free)
  243.   else
  244.     [InstallationDriveSummary] := (Not Selected)
  245.   EndIf
  246.   Dialog PressAKey [SpecialPopupColors]
  247.     .cHERE IS A SUMMARY OF YOUR SYSTEM
  248.     .c[String8]  ;; notes whether any incompatibilities were found
  249.  
  250.     Operating System Version:  [OSVersionSummary]
  251.     CPU Type:  [CPUTypeSummary]
  252.     Display Adapter:  [DisplayAdapterSummary]
  253.     Math Coprocessor:  [MathCoprocessorStatus]
  254.     Main Memory Present:  [SystemMemorySummary]
  255.     Extended Memory Present:  ExtendedMemoryPresentK
  256.     XMS Memory Available:  XMSMemoryAvailableK
  257.     Installation Drive:  [InstallationDriveSummary]
  258.     Network:  [NetworkActive]
  259.     [String9]  ;; information about network suitability
  260.   EndDialog
  261. EndProcedure
  262.  
  263. Procedure PrepareSystemReport
  264.   [InsufficientSystem] := NoCharacter
  265.   If OSVersion < [MinimumOSVersion]
  266.     [OSVersionSummary] := OSVersion (need at least [MinimumOSVersion])
  267.     [InsufficientSystem] := YesCharacter
  268.   else
  269.     [OSVersionSummary] := OSVersion
  270.   EndIf
  271.   If MainMemory < [MinimumSystemMemoryRequiredPresent]
  272.     [SystemMemorySummary] := MainMemoryK (need at least [MinimumSystemMemoryRequiredPresent]K)
  273.     [InsufficientSystem] := YesCharacter
  274.   else
  275.     [SystemMemorySummary] := MainMemoryK
  276.   EndIf
  277.   If 808X
  278.     If [Allow808X] = YesCharacter
  279.       [CPUTypeSummary] := 808x
  280.     else
  281.       [CPUTypeSummary] := 808x (not compatible with [ProductName])
  282.       [InsufficientSystem] := YesCharacter
  283.     EndIf
  284.   EndIf
  285.   If 80286
  286.     [CPUTypeSummary] := 80286
  287.   EndIf
  288.   If 80386
  289.     [CPUTypeSummary] := 80386
  290.   EndIf
  291.   If 80486
  292.     [CPUTypeSummary] := 80486
  293.   EndIf
  294.   If [CPUTypeSummary] = BlankString
  295.     [CPUTypeSummary] := 808x
  296.   EndIf
  297.   If MicroChannel
  298.     [CPUTypeSummary] := [CPUTypeSummary] (in MicroChannel Architecture)
  299.   else
  300.     [CPUTypeSummary] := [CPUTypeSummary] (ISA or EISA Architecture)
  301.   EndIf
  302.   If CGA
  303.     If [AllowCGA] = YesCharacter
  304.       [DisplayAdapterSummary] := CGA
  305.     else
  306.       [DisplayAdapterSummary] := CGA (not compatible with [ProductName])
  307.       [InsufficientSystem] := YesCharacter
  308.     EndIf
  309.   EndIf
  310.   If MDA
  311.     If [AllowMDA] = YesCharacter
  312.       [DisplayAdapterSummary] := MDA
  313.     else
  314.       [DisplayAdapterSummary] := MDA (not compatible with [ProductName])
  315.       [InsufficientSystem] := YesCharacter
  316.     EndIf
  317.   EndIf
  318.   If EGA
  319.     [DisplayAdapterSummary] := EGA
  320.   EndIf
  321.   If VGA
  322.     [DisplayAdapterSummary] := VGA
  323.   EndIf
  324.   If HGC
  325.     [DisplayAdapterSummary] := HGC
  326.   EndIf
  327.   If HGCPlus
  328.     [DisplayAdapterSummary] := HGC Plus
  329.   EndIf
  330.   If Network
  331.     [NetworkActive] := Network Active
  332.   else
  333.     [NetworkActive] := No Network Active
  334.   EndIf
  335.   If NovellLoaded
  336.     [NetworkActive] := Novell [NetworkActive]
  337.   EndIf
  338.   If MathCoprocessorPresent
  339.     [MathCoprocessorStatus] := Present
  340.   else
  341.     If [MathCoprocessorRecommended] = YesCharacter
  342.       [MathCoprocessorStatus] := Not Present But Recommended
  343.       If [CompatibilityNoticeGiven] = YesCharacter
  344.       else
  345.         Dialog  ;; Notice if math coprocessor recommended
  346.           [ProductName] needs a math coprocessor
  347.           for best performance.  Your system does not
  348.           contain one.
  349.         EndDialog
  350.       EndIf
  351.     else
  352.       [MathCoprocessorStatus] := Not Present
  353.     EndIf
  354.   EndIf
  355.  
  356.   If [InsufficientSystem] = YesCharacter
  357.     [String8] := (Please note the listed incompatibilities)
  358.   EndIf
  359.   If [NetworkInstallation] contains DisallowNetwork
  360.     [String9] := "   (You cannot install this version on a network drive)"
  361.   EndIf
  362.   [CompatibilityNoticeGiven] := YesCharacter
  363. EndProcedure
  364.  
  365. Procedure ExitInstallation
  366. ClearScreen
  367. If [ReadmeFileName] <> BlankString
  368.   If FileExists [InstallationDirectory]\[ReadmeFileName]
  369.     ChangeDirectoryTo [InstallationDirectory]
  370.     Dialog [YesOrNo3] ;; Ask whether to browse readme file, if any
  371.       The file [ReadmeFileName] describes what has changed with
  372.       version 6.5 of Grateful Med.  You may read or print
  373.       it from the [InstallationDirectory] directory or you may
  374.       look at it now.  Would you like to see it now?
  375.     EndDialog
  376.     If [YesOrNo3] = YesCharacter
  377.       If FileExists [ReadmeFileName]
  378.         BrowseFile [ReadmeFileName]
  379.       else
  380.         Popup Sorry, readme file [ReadMeFileName] is missing.
  381.       EndIf
  382.     EndIf
  383.   EndIf
  384. EndIf
  385. SoLong
  386. EndProcedure
  387.  
  388. Procedure SetupInstalit
  389.   SetScreenAttrTo [ScreenColors]
  390.   SetBackgroundCharTo [BackgroundCharacter]
  391.   Do PrepareSystemReport
  392.   SetShadows Off
  393.   NoSysFileConfirmation
  394.   SetMainBorderTo     [MainBorder]
  395.   SetPopupBorderTo    [PopupBorder]
  396.   SetModifyModeTo     [ModifyMode]
  397.   SetShadowAttrTo     DarkGrayOnBlack
  398.   SetScreenAttrTo     [ScreenColors]
  399.   SetPopupAttrTo      [PopupColors]
  400.   SetAttentionAttrTo  [AttentionColors]
  401.   SetTopLineAttrTo    [TopLineColors]
  402.   SetBottomLineAttrTo [BottomLineColors]
  403.   SetBottomLineTo     "   <F1> Help   <F3> System Summary   <F9> to Quit    "
  404.   SetTopLineTo        "     [ProductName]     "
  405.   SetAllowExit        Off
  406. EndProcedure
  407.  
  408. EndScript
  409.